home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1989 September / 1989-09.d64 / egg beater (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1989-01-01  |  925 b   |  31 lines
  1. 10 poke646,5:poke53280,5:poke53281,0
  2. 20 print"[147][176][192][192]       [176][201]        [221]     copyright 1989";
  3. 30 print"[171][192][192][213][192][201][213][192][201] [171][177][201][213][192][201][213][192][174][192][219][192][213][192][201][171][192][201] compute!'s ";
  4. 40 print"[221]  [221] [221][221] [221] [221] [221][171][192][189][221] [221] [221] [171][192][189][221]    gazette   ";
  5. 50 print"[173][192][192][202][192][179][202][192][179] [173][192][203][202][192][203][202][192][177] [203] [202][192][203][221]              ";
  6. 60 print"   [202][192][203][202][192][203]   score         lives         ";
  7. 70 print"                                        "
  8. 80 poke646,6:forn=1to4:print:print
  9. 90 print"    [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]   ":print
  10. 100 next:poke646,5:gosub1000:(NULL):b=0
  11. 110 forn=0to3:bl(n)=176+2*n:next
  12. 120 poke724,0:poke725,0:poke716,5:tm$="000005":ti$="000000"
  13. 130 s=256*peek(725)+peek(724):l=peek(716):(NULL)7,bl(b),2,20
  14. 140 print"   [202][192][203][202][192][203]   score         lives         [145]";
  15. 150 printtab(17);s;tab(31);l
  16. 160 ifl<1orl>5then220
  17. 170 ifl<>peek(716)then130
  18. 180 ifs<>(256*peek(725)+peek(724))then130
  19. 190 ifti$<tm$then160
  20. 200 ti$="000000":b=b+1:ifb>3thenb=0
  21. 210 goto130
  22. 220 (NULL):gosub1000:print" play again? [y/n]"
  23. 230 getk$:ifk$="y"thenrun
  24. 240 ifk$><"n"then230
  25. 250 print"[147]":end
  26. 1000 restore
  27. 1010 readn:ifn<0thenreturn
  28. 1020 (NULL)6,n:fort=1to80:next:goto1010
  29. 1030 data55,57,58,58,57,57,58,64,66,58,58,58
  30. 1040 data-1
  31.